Inference at * 
Iof proof for Lemma squash functionality wrt implies:


  P, Q:. {P  Q}  {(P)  (Q)} 

latex

 by ((((Unfold `guard` 0) 
CollapseTHEN (RepD))) 
CollapseTHENA ((Auto_aux (first_nat 1:n
C) ((first_nat 1:n),(first_nat 3:n)) (first_tok :t) inil_term))) 

latex

C1: 

C1: 1. P : 
C1: 2. Q : 
C1: 3. P  Q
C1: 4. P
C1:   Q
C.

Definitions	t  T, {T}, P  Q, , x:A. B(x)
Lemmas	squash wf